home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / aboulder.lha / ABoulderDash1.0 / ExecMacros.i < prev    next >
Text File  |  1995-08-27  |  479b  |  36 lines
  1. _SysBase        equ     4
  2.  
  3. OPENLIB: macro
  4.     move.l    (_SysBase).w,a6
  5.         moveq   #0,d0
  6.     lea     \1,a1
  7.     jsr     _LVOOldOpenLibrary(A6)
  8.     endm
  9.  
  10. CLOSELIB: macro
  11.     MOVE.L    (_SysBase).w,a6
  12.     MOVE.L  \1,a1
  13.     jsr     _LVOCloseLibrary(A6)
  14.     ENDM
  15.  
  16. LIBCALL: MACRO
  17.     MOVE.L    \2,A6
  18.     JSR    _LVO\1(A6)
  19.     ENDM
  20.  
  21. DOSCALL: MACRO
  22.     LIBCALL    \1,_DOSBase
  23.     ENDM
  24.  
  25. EXECCALL: MACRO
  26.     LIBCALL \1,_SysBase
  27.     ENDM
  28.  
  29. GRAFCALL: MACRO
  30.         LIBCALL \1,_GfxBase
  31.         ENDM
  32.  
  33. INTCALL: MACRO
  34.     LIBCALL \1,_IntuitionBase
  35.     ENDM
  36.